1) VMRX.FAI[TMP,LCS] and 2) VMRZ.FAI[TMP,LCS]	4-16-80 12:45	pages 1,1

**** File 1) VMRX.FAI[TMP,LCS]/1P/1L
1)		COMMENT ⊗   VALID 00013 PAGES
1)		C REC  PAGE   DESCRIPTION
1)		C00001 00001
1)		C00003 00002	TITLE VM     PRINTS MUSIC FORMAT FILE ON VARIAN PRINTER.
1)		C00004 00003	BEG:	SETOM LINE
1)		C00008 00004	XINI:	OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=10.2")? /]
1)		C00011 00005		MOVE A,E	ROTATION
1)		C00015 00006	XCHA:	SETZ 14,	↓↓MOVE UP AND RIGHT
1)		C00018 00007	MVLFT:	MOVMS 0		MOVE LEFT THEN RIGHT
1)		C00021 00008	OOBAR:	SETZM OOBFLG	 GET HERE IF ALL READY OOB
1)		C00025 00009	FINDL:	HRRZ A,JOBREL		CK IF BIG ENUF
1)		C00030 00010	INBITS:	PUSHJ P,NAMGET		INPUT OLD BIT FILE
1)		C00033 00011	CORUP
1)		C00035 00012	******** TYPE '4' FOR 4X4 DOTS, TYPE '9' FOR 9X9 DOTS.***********
1)		C00037 00013	GETNAM:	MOVEI A,		FILE SCAN
1)		C00039 ENDMK
1)		C⊗;
1)		TITLE VM     ;PRINTS MUSIC FORMAT FILE ON VARIAN PRINTER.
**** File 2) VMRZ.FAI[TMP,LCS]/1P/1L
2)	00100	TITLE VM     ;PRINTS MUSIC FORMAT FILE ON VARIAN PRINTER.
***************


**** File 1) VMRX.FAI[TMP,LCS]/3P/26L
1)		FILIN:	OUTSTR [ASCIZ /INPUT FILE? (DEFAULT=PLT.PLT) /]
1)			PUSHJ P,FRD
1)			SETZ A,
1)		YAGN1:	HRREI B,-60
1)			JRST ROTX
1)		ROTX:	OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET (DEFAULT=10.0(CENTER))? /]
1)			PUSHJ P,RNUM
1)			JRST [	PASS2:	;;HRREI A,-=1485
1)					;;SKIPE ROFLG	;ROTATE?
1)					HRREI A,-=1400	;-=2000	; YES, DEFAULT = 10"
1)					JRST YDEF]	;GET Y INFO
1)			IMULI A,=100
1)			CAIN C,"."		;DECIMAL POINT?
1)			JRST [	INCHWL C
1)				CAIN C,15
1)				INCHWL C
1)				CAIL C,"0"
1)				CAILE C,"9"
1)				JRST .+1
1)				SUBI C,60
1)				IMULI C,=10
1)				SKIPE SIGN
1)				MOVN C,C
  1) VMRX.FAI[TMP,LCS] and 2) VMRZ.FAI[TMP,LCS]	4-16-80 12:45	pages 3,2

1)				ADD A,C
1)				PUSH P,A
1)				PUSHJ P,RNUM
1)				JFCL
1)				POP P,A
1)				JRST .+1]	;.+1??
1)			MOVN A,A
1)			LSH A,1			;*2 (MAKE IT STEPS)
1)		   	CAIE C,12	;DID IT GET A LF?
1)			PUSHJ P,INCHLF	;NO, GO LOOK
1)		YDEF:	ADD A,B
**** File 2) VMRZ.FAI[TMP,LCS]/2P/26L
2)	02800	FILIN:	OUTSTR [ASCIZ /?  /]
2)	02850		PUSHJ P,FRD
2)	02875	;;	SETZ A,
2)	02900	YAGN1:	HRREI B,-60
2)	03600		HRREI A,-=1400	;-=2000	; YES, DEFAULT = 10"
2)	06000	YDEF:	ADD A,B
***************


**** File 1) VMRX.FAI[TMP,LCS]/4P/1L
1)		XINI:	OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=10.2")? /]
1)			SETZM DEFA#
1)			PUSHJ P,RNUM
1)			SETOM DEFA		;ASSUME 14  INCHES
1)			JUMPLE A,[XINLER:INCHWL 0      ; GET LF?
1)				JRST XINI]
1)			SKIPGE DEFA		;? GO?
1)		PASSD:	HRRZI A,=10
1)			CAIE C,12
1)			JRST XINLER
1)			IMULI A,=200
1)			ADDI A,=120	;+.6
1)			CAILE A,=3200		;IF MORE THAN 16" IS TYPED, WE GET 16"
1)			MOVEI A,=3200		;THIS IS MAXIMUM FOR THIS PROGRAM(255K)
1)			SUBI A,=2970		;XSHIFT=3050-A      (DEFAULT ENDS UP AS 850)
1)		;;	SUBI A,=3030		;XSHIFT=3050-A      (DEFAULT ENDS UP AS 910)
1)			MOVNM A,XSHIFT#
1)		YINI1:	OUTSTR [ASCIZ \ORIGIN Y BOTTOM OFFSET, 200/IN.(DEFAULT=900)? \]
1)			PUSHJ P,RNUM
1)		PASS3:	JRST [	MOVEI A,=900	;=1100 ;;MOVEI A,=4    ;WAS 800
1)				JRST IYDEF]
1)			CAIE C,12
1)			JRST [	PUSHJ P,INCHLF
1)				JRST YINI1]
1)		;;;	MOVEI A,=800	;BOTTOM OFFSET
1)		IYDEF:	MOVEM A,SHIFT#	;A MINUS NUMBER SHIFTS IMAGE DOWN OFF PAGE
  1) VMRX.FAI[TMP,LCS] and 2) VMRZ.FAI[TMP,LCS]	4-16-80 12:45	pages 4,3

**** File 2) VMRZ.FAI[TMP,LCS]/3P/1L
2)	02500	XINI:	MOVEI A,=850
2)	02550		MOVEM A,XSHIFT#
2)	02575		MOVEI A,=900
2)	02600	IYDEF:	MOVEM A,SHIFT#	;A MINUS NUMBER SHIFTS IMAGE DOWN OFF PAGE
***************